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SQL> cl scr 



SQL> UPDATE Emp 

2 SET Sal = Sal + 1000 

3 WHERE Deptno =30 

4 

SQL> SELECT * FROM Emp; 



EMPNO ENAME 
COMM DEPTNO 



JOB 



MGR HIREDATE 



10 

30 

10 

20 

1400 

300 

0 

30 
500 
20 
20 
20 
20 
10 
1 



7839 KING 

7698 BLAKE 

7782 CLARK 

7566 JONES 

7654 MARTIN 
30 

7499 ALLEN 
30 

7844 TURNER 
30 

7900 JAMES 

7521 WARD 
30 

7902 FORD 
7369 SMITH 
7788 
7876 



V# 1 



SCOTJJ \ 
ADAMS 



7®#* MILLER 



0 



# 



o 



selected. 



7839 0 




17 -NOV- 81 

4 

7839 01-MAY-81..'t 
7839 0 9-JUtfJ-*^ 

, 0 1 

Jf 

9 g ^ 0 _ FEB _ 81 

7698 0 8-SEP-8 1 
7698 03-DEC-81 
7698 22-FEB-81 
7566 03-DEC-81 
7902 17-DEC-80 
7566 09-DEC-82 
7788 12- JAN-83 
7782 23-JAN-82 




L> SELECT Ename, Deptno, Sal, HireDate 
FROM Emp 
3 WHERE Deptno = 20; 



50 
2450 
2975 
1250 
1600 
1500 
950 
1250 
3000 
800 
3000 
1100 
1300 



ENAME 



DEPTNO 



SAL HIREDATE 
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JONES 


20 


2975 


02 -APR- 81 


FORD 


20 


3000 


03-DEC-81 


SMITH 


20 


800 


17-DEC-80 


SCOTT 


20 


3000 


09-DEC-82 


ADAMS 


20 


1100 


12- JAN- 8 3 



SQL> cl scr 

SQL> SELECT * FROM Dept; 
DEPTNO DNAME 



10 ACCOUNTING 
20 RESEARCH 
30 SALES 
40 OPERATIONS 



SQL> INSERT INTO Dept 

2 VALUES (50, 'SHIPPING', 'CHENNAI'); 

1 row created. 

SQL> ROLLBACK; 

Rollback complete. 

SQL> BEGIN 

2 INSERT INTO Dept 

3 VALUES (50, 'SHIPPING, ^HENNAI ' ) ; 

4 END ; 

5 / 




NEW YORK 
DALLAS 
CHICAGO 
BOSTON 



PL/SQL procedureisuc 




sfully completed. 



SQL> ROLLB 



Rollback jomp'me . 



1 



SQL>^m? 

2 iV_^ptno Dept . Deptno%TYPE : = SGDeptno ; 

Vrename Dept . Dname%TYPE := UPPER (' SGDname ') ; 
jl* 4 fV_Loc Dept . Loc%TYPE := UPPER (' &GLoc ') ; 

V, 5^ BEGIN 

^6 SELECT MAX (Deptno) INTO V_Deptno 
7 FROM Dept 



9 IF V_Deptno IS NOT NULL 
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10 THEN 

11 V_Deptno := V_Deptno + 10; 

12 ELSE 

13 V_Deptno := 10; 

14 END IF; 

15 INSERT INTO Dept 

16 VALUES (V_Deptno, V_Dname, V_Loc) ; 

17 IF SQL%FOUND THEN 

18 DBMS_OUTPUT.PUT_LINE (SQL%ROWCOUNT M ' Record Inserted 

19 DBMS_OUTPUT . PUT_LINE ( ' Insert is Successful...'); 

20 DBMS_OUTPUT . PUT_LINE ( ' The New Record is : '||V_Deptn 

' | | V_Dname II', 'll V_Loc) ; 

21 ELSE 

22 DBMS_OUTPUT.PUT_LINE (SQL%ROWCOUNT M ' Record Insorte 

23 DBMS_OUTPUT . PUT_LINE ( ' Insert is Failed'); 

24 END IF; 

25 END; 

26 . 

SQL> ED 

Wrote file afiedt.buf 



10 

11 

12 

13 

14 

15 

16 

17 

18 
19 





DECLARE 

V_Deptno Dept . Deptno%TYPE; 

V_Dname Dept . Dname%TYPE : = UPPER ( ' S^Dname ' ) ; 

V_Loc Dept . Loc%TYPE := UPPER^^Loc ' ) ; 

BEGIN ^ 

SELECT MAX (Deptno) INTO^ V ^ Mo 
FROM Dept ; +T 

IF V_Deptno IS NOT 
THEN 

V_Deptno := V_DepJ£$fo-, 0 ; 

ELSE 

V_Deptno := It 
END IF; a 
INSERT INmVept 
VALUE S(^t^e^ftno , V_Dname, V_Loc) ; 

IF SQL%ROUjD MEN 

DB MSO UTP^T.PUT_LINE ( SQL%ROWCOUNT | | ' Record Inserted' ) ; 
UTPUT . PUT_LINE ( ' Insert is Successful ...'); 
^M^^UTPUT . PUT_LINE ( ' The New Record is : ' | |V_Deptno| | 

I I V_Loc) ; 



ej>* 



P + B 



' | | VfDname | | ' , 

2fefBiiSE 

▼ Jr Ar. 



o 



*2 f fe >BMS_OUTPUT . PUT_LINE ( SQL%ROWCOUNT | | ' Record Inserted'); 
" 2^ DBMS_OUTPUT. PUT_LINE (' Insert is Failed'); 

END IF; 

24* END; 

SQL> / 

Enter value for gdname : Shipping 
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Enter value for gloc: Mumbai 
1 Record Inserted 
Insert is Successful... 

The New Record is : 50, SHIPPING, MUMBAI 




PL/SQL procedure successfully completed. 



SQL> / 



Enter value for gdname : Cargo 
Enter value for gloc: Chennai 
1 Record Inserted 
Insert is Successful... 

The New Record is : 60, CARGO, CHENNAI 



8 IF SQL%FOUND THEN 

9 DBMS_OUTPUT . PUT_LINE (SQL%ROWCOUNT | | ' Record Updated ') ; 
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PL/SQL procedure successfully completed. 



SQL> ROLLBACK; 



Rollback complete. 



SQL> SELECT * FROM Dept; 




# 



DEPTNO DNAME 



LOC 
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10 DBMS_OUTPUT.PUT_LINE ( 'Update For Department ' I I V_Deptno || ' is 
Successfull ' ) ; 

11 ELSE 

12 DBMS_OUTPUT.PUT_LINE (SQL%ROWCOUNT M ' Record(s) Updated'); 

13 DBMS_OUTPUT.PUT_LINE ( 'Update For Department ' I I V_Deptno || ' 
Failed . ' ) ; 

14 END IF; 

15 END; 

16 / 

Enter value for gdeptno: 40 
Enter value for gloc: Chennai 

V_Deptno Dept . Deptno%TYPE : = 40; f 



ERROR at line 2: 

ORA-06550: line 2, column 10: 

PLS-00103: Encountered the symbol "DEPT" when expe 
following : 

:= . ( 0 % 

The symbol 
ORA- 0 6550 : 

PLS-00103 : 
following : 

( * @ % & = - + ; < / > at in is m?Wb-iemSTnder not rem 
<an exponent ( * * ) > <> or ! = or ~= >= <= >> and or like LIKE2_ 
LIKE4_ LIKEC_ between | | multis^LJ 44 ^. 

Psi 



was substituted for "DEPT" 
line 2, column 27: 

Encountered the symbol "=" whs 




ne of the 



Acting one of the 



SQL> ED 

Wrote file afiedt.buf 



\ 



♦ g , |T *i 



X \ 



t%> 



r 

JeptfcJrYPE : = SGDeptno; 
* t4 “ := UPPER ( ' SGLoc ' ) ; 



1 DECLARE 

2 V_Deptno Dept * 

3 V_Loc Dept.Loc 

4 BEGIN a 

5 UPDATE Deft^t 

6 SET Loc’*J t+ yI-9DC 

7 WHERE Dtomo ^ V_Deptno ; 

8 IF SDL%FOWD THEN 

9 ^f^p5UTPUT.PUT_LINE (SQL%ROWCOUNT M ' Record Updated' ) ; 

10 ^S^^UTPUT . PUT_LINE ( ' Update For Department ' | | V_Deptno | | 
Su eels sf fell ' ) ; 

t*! ! tt )BMS_OUTPUT.PUT_LINE (SQL%ROWCOUNT| | ' Record(s) Updated'); 
d J - L tJ\l3 H ^DBMS_OUTPUT.PUT_LINE ( 'Update For Department ' | | V_Deptno | | 
| ^tailed . ' ) ; 

14 END IF; 

15* END; 

SQL> / 



rs 
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Enter value for gdeptno: 40 
Enter value for gloc: Chennai 
1 Record Updated 

Update For Department 40 is Successfull 
PL/SQL procedure successfully completed. 
SQL> / 

Enter value for gdeptno: 90 
Enter value for gloc: Delhi 
0 Record (s) Updated 
Update For Department 90 Failed. 




PL/SQL procedure successfully completed. 
SQL> ROLLBACK; 

Rollback complete. 

SQL> ED 

Wrote file afiedt.buf 




1 DECLARE 

2 V_Deptno Dept . Deptno%TYPE := SGDeptl 

3 BEGIN 

4 DELETE Dept 

5 WHERE Deptno = V_Deptno/ r 

6 IF SQL%FOUND THEN , ■ , *+ + 

7 DBMS_OUTPUT.PUT_LINE?!feL^pWcOUNT | | ' Record Deleted' ) ; 

8 DBMS_OUTPUT . PUT_LINrf£' D^ete For Department ' | | V_Deptno | | 

Successfull ' ) ; + -t-C t 

9 ELSE f^f 4 " 

10 DBMS_OUTPUT.Pw5!%IE (SQL%ROWCOUNT | | ' Record (s) Deleted' ) ; 

11 DBMS_OUTPUTaPUT_^ 4E ( 'Delete For Department ' | | V_Deptno | | 

Failed . ' ) ; ^ \ 

12 END IF; 

13* END; + +fj ^ 

SQL> / ~ t t r 

Entervva^^. for gdeptno: 40 
1 Recpi^Biaiffeted 

Delete E»r Department 4 0 is Successfull 
PL/S® procedure successfully completed. 

C&w 

\ w .|fenter value for gdeptno: 90 
0 Record(s) Deleted 
Delete For Department 90 Failed. 



is 
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PL/SQL procedure successfully completed. 

SQL> / 

Enter value for gdeptno: 30 
DECLARE 

ERROR at line 1: 

ORA-02 2 92 : integrity constraint ( SCOTT . EMP_F ORE I GN_KE Y ) violated^ 
record found 
ORA-06512: at line 4 



SQL> ROLLBACK; 
Rollback complete. 
SQL> ED 

Wrote file afiedt.buf 



DECLARE 

V_Deptno Dept . Deptno%TYPE := &GD 
V_Child_Status NUMBER; 

BEGIN 

SELECT COUNT (*) INTO V_Chilt^t^tus 




FROM Emp 



WHERE Deptno = V_Deptno/ r 0^4 ^ 

8 IF V_Child_Status > Q » 

9 DBMS_OUTPUT.PUT_LINE^fchf^J Records Have Been Found. . 
10 DBMS_OUTPUT.PUT_LINd£'f^te Number of Dependencies Are 

' I I V_Child_Status) ; 



) ; 



11 DBMS_OUTPUT . P 
Cannot Continue Ti 
Orphan Records . ' 1 ; 

12 ELSE ^ \ 







Deletion of Department Number ' | |V_Deptno| | ' 
Dependents Are Not Deleted OR Adjusted For 



13 

14 

15 

16 
17 




DELETI 

WHERE I^fctjo =» V_Deptno ; 

IF 3QL%FTOD THEN 
+pBfefjQUTPUT.PUT_LINE (SQL%ROWCOUNT II ' Record Deleted' ) ; 

OUTPUT . PUT_LINE ( ' Delete For Department ' | |V_Deptno| | 



is 



SuccissftHl ' ) ; 

"It |+DBMS_OUTPUT.PUT_LINE (SQL%ROWCOUNT | | 



Cf 



_ _ Record(s) Deleted'); 

"0 w DBMS_OUTPUT . PUT_LINE ( ' Delete For Department ' | |V_Deptno| | 
lied. ' ) ; 

21 END IF; 

22 END IF; 

23* END; 
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SQL> / 



Enter value for gdeptno: 30 
Child Records Have Been Found. . . 

The Number of Dependencies Are : 6 
Deletion of Department Number 30 Cannot Continue Till The Dependents Are 
Not Deleted OR Adjusted For Orphan Records. 

PL/SQL procedure successfully completed. 

SQL> / 

Enter value for gdeptno: 40 
1 Record Deleted 

Delete For Department 40 is Successfull 
PL/SQL procedure successfully completed. 

SQL> / 

Enter value for gdeptno: 90 
0 Record(s) Deleted 
Delete For Department 90 Failed. 

PL/SQL procedure successfully complete^. 

SQL> SPOOL OFF + +- 
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